home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 9 / CDACTUAL9.iso / share / Dos / VARIOS / pascal / SWAG9605.DDD / 0066_More Cursor Handling Routines.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-05-31  |  1.0 KB  |  67 lines

  1. {
  2. Cursor An  ---> Cursor on
  3.  
  4. Cursor Aus ---> Cursor Off
  5.  
  6. Cursor ?   ---> The helptext
  7. }
  8.  
  9. Program Cursor;
  10.  
  11. Uses
  12.   Dos;
  13.  
  14. Label
  15.   Schluss;
  16.  
  17. Var
  18.  
  19.   r :Registers;
  20.   p : String[10];
  21.   cH, cL : Byte;
  22.  
  23. Begin
  24.   p := ParamStr(1);
  25.   If P = 'An'
  26.     Then
  27.       Begin
  28.         cH := 0;
  29.         cL := 8;
  30.       End;
  31.   If (P = 'Aus')
  32.     Then
  33.       Begin
  34.         cH := 8;
  35.         cL := 0;
  36.       End;
  37.   If (P = '?')
  38.     Then
  39.       Begin
  40.         WriteLn('Folgende Parameter sind mvglich:');
  41.         WriteLn('--------------------------------');
  42.         WriteLn('Cursor An  :  liefert den Block');
  43.         WriteLn('Cursor Aus :  schaltet den Cursor ab');
  44.         WriteLn('Cursor ?   :  liefert diese Aufstellung');
  45.         WriteLn;
  46.         Write('Weiter --> Return-(Enter-)Taste dr|cken');
  47.         ReadLn(p);
  48.         GoTo Schluss;
  49.       End;
  50.   R.ax := 1 ShL 8;
  51.   R.cx := cH ShL 8 + cL;
  52.   Intr($10,r);
  53.  
  54. Schluss:
  55.  
  56. End.
  57.  
  58.  
  59. --
  60.  
  61. eMail: voss@ck.be.schule.de
  62.  
  63.        Herbert_Voss@msn.com
  64.  
  65.  
  66.  
  67.